home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
library
/
rqtlsusr.lha
/
ReqTools
/
RexxReqTools
/
Examples
/
TTXARexx.lha
/
Revert.ttx
< prev
next >
Wrap
Text File
|
1993-10-21
|
360b
|
18 lines
/* $VER: Revert.ttx 2.0 (20.02.93)
*
* Revert the current document to the version on disk.
*/
OPTIONS RESULTS
GetFileInfo
Parse VAR RESULT Lines Modified Name
IF Modified="YES" THEN DO
IF ~rtEZRequest( "Revert to the saved file?", " _Ok |_Cancel", "TurboText request", "RT_PubScrName=TURBOTEXT" ) THEN
RETURN
END
GetFilePath
OpenFile QUIET RESULT